no- 



ENTRY OF RLE NUMBER AND/OR OTHER 
IDENTIFICATION INFO, AND AMOUNT FOR 
CHECK, INTO REMOTE WORKSTATION 
AT LAW FIRM 



112-f 



114 
_i 



CHECK PRINTED ON WORKSTATION 
PRINTER. AND MAILED TO PATENT 
AND TRADEMARK OFFICE 



PTO RECEIVES 
CHECK AND CASHES 
AGAINST BANK ACCOUNT 



120 
_i 



CENTRAL OFFICE 
DEPOSITS MONEY 
IN ACCOUNT OR 
OTHERWISE INSURE 
ADEQUATE FUNDS 
PRESENT 



126 




INFORMATION REGARDING 
CHECKS PRINTED UPLOADED 
TO CENTRAL OFFICE 
BY REMOTE WORKSTATION 



122- 



X 



ELECTRONIC INVOICE GENERATED 
AND TRANSMITTED TO LAW FIRM 
ACCOUNTING SYSTEM; PAPER 
INVOICE ALSO GENERATED 
BY WORKSTATION 



BANK SENDS TO 
CENTRAL OFFICE 

MONTHLY STATEMENT 
OF TRANSACTIONS 

TO CENTRAL OFFICE 




CENTRAL OFFICE RECONCILES 

MONTHLY STATEMENT WITH 
INFORMATION UPLOADED BY WS 



FIG. 1A 



0 
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CENTRAL OFFICE 
SENDS BILL TO 
LAW FIRM FOR 
MONEY LOANED 
TO CLIENTS 



136 
_J> 



BILL DUE 
IN 90 DAYS OR 
OTHER PERIOD 



146 
\ 



CENTRAL OFFICE 
RECEIVES CLIENT'S 
PAYMENT FROM 
LAW FIRM 



132 



EXAMINE 
SITUATION AND 
CORRECT 
ERRORS 



138 



SEND INVOICE 
TO CLIENT (BY 
LAW FIRM) AT 
END OF MONTH 
OR OTHER PERIOD 



140 




INVOICE DUE 
IN 30 DAYS OR 
OTHER PERIOD 


142 




LAW FIRM RECEIVES 
MONEY FROM 
CLIENT 


144 




LAW FIRM SENDS 

PAYMENT TO 
CENTRAL OFFICE 



FIG. 1B 



210- 



ENTRY OF FILE NUMBER AND/OR OTHER 
IDENTIFICATION INFO, AND REQUESTED 
AMOUNT INTO REMOTE WORKSTATION 



212w 



WORKSTATION ISSUES AUTHORIZATION 
CODE FOR DEBIT OF REQUESTED 
AMOUNT FROM DEPOSIT ACCOUNT 



213-1 



214 
L. 



I 



TRANSMITTAL INCLUDING AUTHORIZATION 
CODE SENT TO EPO/PCT 
(DEPOSIT ACCOUNT AUTHORIZATION) 



EPO/PCT RECEIVES 
TRANSMITTAL AND DEBITS 
DEPOSIT ACCOUNT 



220 



CENTRAL OFFICE 
DEPOSITS MONEY 
IN ACCOUNT OR 
OTHERWISE INSURE 
ADEQUATE FUNOS 
PRESENT 



226 
_i 




INFORMATION REGAROING 
AUTHORIZATION UPLOADEO 
TO CENTRAL OFFICE BY WS 



218- 



ELECTRONIC INVOICE GENERATED 
AND TRANSMITTED TO LAW FIRM 
ACCOUNTING SYSTEM; PAPER 
INVOICE ALSO GENERATED 
BY WORKSTATION 



CENTRAL OFFICE RECEIVES 
MONTHLY STATEMENT OF 
ACCOUNT DEBITS 
IDENTIFIED BY 
AUTHORIZATION CODE 




CENTRAL OFFICE RECONCILES 

MONTHLY STATEMENT WITH 
INFORMATION UPLOADED BY WS 



FIG. 2A 



© 
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CENTRAL OFFICE 
SENDS BILL TO 
LAW FIRM FOR 
MONEY LOANED 
TO CLIENTS 



246 



236 




BILL DUE 


IN 90 DAYS OR 


OTHER 


PERIOD 



CENTRAL OFFICE 
RECEIVES CLIENT'S 
PAYMENT FROM 
. LAW FIRM 



232 
_S 



EXAMINE 
SITUATION AND 
CORRECT 
ERRORS 



(!) 



238 

SEND INVOICE 
TO CLIENT (BY 

LAW FIRM) AT 
END OF MONTH 
OR OTHER PERIOD 



240 




INVOICE DUE 
IN 30 DAYS OR 
OTHER PERIOO 


242 
i 




LAW FIRM RECEIVES 
MONEY FROM 
CLIENT 


244 . 




LAW FIRM SENDS 

PAYMENT TO 
CENTRAL OFFICE 



FIG. 2B 
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ENTRY OF RLE NUMBER AND/OR OTHER 
310 J IDENTIFICATION INFO. AND AMOUNT FOR 
CHECK, INTO REMOTE WORKSTATION 
AT LAW FIRM 



WORKSTATION ELECTRONICALLY 
311^ CONTACTS CENTRAL OFFICE FOR 
CONFIRMATION/APPROVAL 



TO STEP 
120 OR 220 



TO STEP 
144 OR 214 



312-H- 



WORKSTATION ISSUES CHECK 
OR AUTHORIZATION CODE 



313- 



CODE OR CHECK SENT 
TO PATENT AGENCY 




TO STEP 
122 OR 222 



FIG. 3 
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410 



LAW FIRM 



418 

i 

ACCOUNTING/ 
BILLING 
SYSTEM 



^422 

CHECK 
PRINTING/ 
AUTH. CODE 
SYSTEM 

—7 — 

416 



434 



420 



426 



424 



PATENT 
AGENCY 



412 



PATENT 
AND 
TRADEMARK 

PAYMENT 
FEE SYSTEM 



432 ^ 



428 
__i 



414 



430 
i_ 



ACCOUNT 



PATENT AGENCY 
OR FINANCIAL 
INSTITUTION 



FIG. 4 
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July 22, 1997 Payee: U.S. Patent & Trademark Office 

Pee Code: 101/201 Basic Filing Fee-Utility 
Client Number: 00997 
Matter Number: xxxx 

Note: This requires special attention. 




Jury 22, 1997 

Two Thousand AND 0/100 DOLLARS 
U.S. Patent & Trademark Office 


$ 2,000.0 


FIG. 18 


PTO Management Company Invoice 

Invoice Date: July 22. 1997 


Item: 

Check Number: 1511 
From Account: 

58-67-9785 - PTFU Checks for U.S. PTO 
Request by: 

Brian Lorson on: 07/22/1997 12:53:16 
Client Number. 00997 Matter Number xxxx 
Note: This requires special attention. 




Check Amount: . 
Fee: 


t 2,000.0 
$ 118.75 


Total Due By 09/20/1997: | 


$ 2,118.75 


Discounted Total Due If Paid By 08/11/1997: 
Discounted Total Due If Paid By 08/11/1997: 


$ 2,029.69 
t 2.059.38 


FIG. 19 



Deposit Account Authorization 


PTFM EPO Deposit Account 


Account Number XTZ234784 


Authorization Number: SIWKO0021023 




Oate Fee Code 


Check Amount 


July 22. 1997 sdhfsfd 


$ 300.0 


Payee: European Patent Office 




Requested by: Brian Larson 


on: 07/22/1997 12:44:18 


Cfient Number 00999 




Matter Number sfgs 


Fee Assessed: | $ 6.75 



FIG. 20 



PTO Management Company Invoice 

Invoice Oate: July 22, 1997 


Item: 




Authorization Number: SLWK00021023 




From Account: 




XYZ234784 - PTFM EPO Deposit Account 




Request by: 




Brian Larson on: 07/22/1997 12:53:16 




Client Number 00999 Matter Number xm 




Authorization Amount: 


$ 300.0 


Fee: 


$ 6.75 


Total Due By 08/21/1997: 


$ 306.75 



FIG. 21 
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Database : PTFM 



Structure 


for table: 




C : \PMCSOURCE\ACCOUNT . DBF 


Number of 


data records: 




9 




Date of last update: 




07/15/1997 




Code Page: 




1252 




Field 


Field Name 




Type 






Width 


Dec 


Index Collate 


Nulls 


1 


AC CODE 




Character 






8 




Asc Machine 


No 


2 


AC NAME 




Character 






30 




Asc Machine 


No 


3 


AC CLIENTNUM. . 




Character 






10 






No 


4 


AC CLIENTNAM. . 




Character 






50 






No 


5 


AC ACCOUNTNU. . 




Character 






20 






No 


6 


AC ACCOUNTTY. . 




Character 






18 






No 


7 


AC BALANCE 




Numeric 






12 


2 




No 


8 


AC NEXTCHECK 




Numeric 






10 






No 


** Total ** 










159 








Structure 


for table: 




C : \PMCSOURCE\ACCTTYPE . DBF 


Number of 


data records : 




9 





Date of last update: 
Memo file block size: 
Code Page: 

Field Field Name 



1 
2 
3 
4 
5 
6 



Width 
AT_TYPE 
18 

ATJCEEPBALAN. 
1 

AT_TRANSTYPE . 
4 

AT_PAYEES 
4 

AT_CANEXCEED 
1 

AT_CHARGE FEE 
1 



06/10/1997 
64 

1252 

Type 

Dec Index Collate 

Character 

Logical 

Memo 

Memo 

Logical 

Logical 



Nulls 
No 
No 
No 
No 
No 
No 



FIG. 24A 



7 


AT_CHEC KONL Y 
1 


Logical 


No 


8 


AT AUTHOR I 2A . . 
1 


Logical 


No 


9 


AT USPTOCODE 
1 


Logical 


No 


10 


AT EPOCODE 
1 


Logical 


No 


11 


AT EXPORTTOP . . 
1 


Logical 


No 



** Total ** 



Structure for table: 
Number of data records: 
Date of last update: 
Code Page : 



C : \PMCSOURCE\CLIENT . DBF 



Field 



** Total ** 



Field Name 

Width 
CL_CLIENTNUM . 

10 
CL_NAME 

50 
CL_PLAN 

20 

81 



Structure for table: 
Number of data records : 
Date of last update: 
Memo file block size: 
Code Page: 

Field Field Name 
Width 

1 DE_C0DE 

8 

2 DE_CL I ENTNUM . 

20 

3 DE_MATTERNUM . 

20 

4 DE_DATETI ME 

8 

5 DE_TRANS ACT I . 

3 



06/20/1997 
1252 

Type 

Dec Index Collate 

Character 

Character 

Character 



Nulls 
No 
No 
No 



C : \PMCSOURCE\DETAIL . DBF 

69 

07/15/1997 
64 

1252 

Type 

Dec Index Collate 

Character 

Character 

Character 

DateTime 

Character 



Nulls 
No 
No 
NO 
No 
No 



FIG. 24B 
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b 


Ub PAY he. 




Character 












No 


■7 

/ 


UCj rivJUVJUE 




Character 






/ _> 






No 


Q 


UL AfUJUiNl i 




Numeric 






X u 


C 




No 


q 


nD DT T1CMTKT7TC 




Numeric 






2 






No 


1 n 

J. u 






Character 






ZD 






No 


1 -I 


UE_J_iUlJAI ION 




Character 






±U 






No 




. T*\TT> iTjrvV"KTTT3UrD 

UE Cncil_isJ\l Urlo . . 




Numeric 






±1) 






No 




FIT? MrtTUO 




Memo 












No 


J- ft 






Numeric 






8 


2 




No 


15 


DP nATPTJTTFT 
JJH> UnlLUULl 




Date 






8 






NO 


16 


ub_r EE 2 




Numeric 






Q 
O 


2 




No 


1 / 


DE_UA I hDUE 2 




Date 






Q 
O 






No 


18 


DE FEE3 




Numeric 






8 


2 




No 


19 


DE DATEDUE3 




Date 






8 






No 


20 


DE STATUS 




Character 






17 






No 


21 ■ 


DE SELECTED 




Logical 






1 






No 


22 


DE PRINTDATE . . 




DateTime 






8 






No 


23 


DE EXPORTDAT. . 




DateTime 






8 






No 



** Total ** 



328 



Structure for table: 
Number of data records: 
Date of last update : 
Code Page: 

Field Field Name 
Width 



Dec 



C : \PMCSOURCE\PTOCODE . DBF 

149 

05/16/1997 
1252 

Type 

Index Collate Nulls 



FIG. 24C 
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i 

2 

** Total ** 



PT_CODE 
75 

PTJJSPTOCODE 
1 

77 



Character 
Logical 



No 
No 



Structure for table: 
Number of data records: 
Date of last update: 
Code Page: 



C : \PMCSOURCE\RATB . DBF 

48 

06/27/1997 
1252 



Field 


Field Name 




Type 






Width 


Dec 


Index Collate 


Nulls 


1 


RA PLAN 
20 




Character 


No 


2 


RA LOWERLIMI . . 




Numeric 






8 


2 




No 


3 


RA UPPERLIMI . . 




Numeric 






8 


2 




No 


4 


RA DAYSDUE1 
3 




Numeric 


No 


5 


RA AMOUNT 1 




Numeric 






8 


2 




No 


6 


RA DAYSDUE2 
3 




Numeric 


No 


7 


RA AMOUNT 2 




Numeric 






8 


2 




No 


8 


RA DAYS DUE 3 
3 




Numeric 


No 


9 


RA AMOUNT 3 




Numeric 






8 


2 




No 


10 


RA NOTALLOWE . . 
1 




Logical 


No 



** Total ** 



71 



Structure for table: 
Number of data records: 
Date of last update: 
Memo file block size: 
Code Page: 

Field Field Name 
Width 
1 SU_ITEM 
20 



C : \PMCSOURCE\SETUP . DBF 

10 

07/22/1997 
64 

1252 

Type 

Dec Index Collate Nulls 

Character 

No 



FIG. 24D 



2 SU_NUMBER Nume r i c 

10 2 No 

3 SU_DATA Memo 
4 No 



k * Total ** 

35 



Structure for table: 
Number of data records: 
Date of last update: 
Code Page: 



C: \ PMC SOURCE \TRANTYPE . DBF 



06/10/1997 
1252 



d 


Field Name 


Type 






Width Dec 


Index Collate 


Nulls 


1 


TR TRANSACT I . . 
3 


Character 


No 


2 


TR DESCRIPTI. . 
20 


Character 


No 


3 


TR PLUSMINUS 
2 


Numeric 


No 


4 


TR CHKACCTVA. . 
1 


Logical 


No 


5 


TR AUTACCTVA. . 
1 


Logical 


No 


6 


TR CHKLIMITE. . 
1 


Logical 


No 


7 


TR AUTLIMITE . . 
1 


Logical 


No 


8 


TR CHARGEFEE 
1 


Logical 


No 



** Total ** 



31 



Structure for table: 
Number of data records: 
Date of last update: 
Code Page: 

Field Field Name 
Width 

1 US_ID 

~~ 20 

2 US_LAST 

15 

3 US_FIRST 

15 

4 US_PASSWORD 

15 



C: \PMCSOURCE\USER.DBF 



05/02/1997 
1252 

Type 

Dec Index Collate 

Character 

Character 

Character 

Character 



Nulls 
No 
No 
No 
NO 



FIG. 24E 
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5 


US_CHECKBALA. . 

X 


Logical 


No 


6 


US VIEWREQUE. . 
1 


Logical 


No 


7 


US CREATEREQ. . 
1 


Logical 


NO 


8 


US_CANCELREQ. . 
1 


Logical 


* No 


9 


US_MODIFYACC. . 

' 1 


Logical 


No 


10 


US PRINTREPO. . 
1 


Logical 


No 


11 


US EXTRACTDA. . 

1 


Logical 


No 



** Total ** 

73 



Program File: MAIN.PRG 

_SCREEN. Width = 633 
_SCREEN. Height = 418 
_SCREEN. Icon = "opening. ico" 

SET CENTURY ON 

SET BELL OFF 

SET CONFIRM ON 

SET DELETED ON 

SET MULTI LOCKS ON 

SET PROCEDURE TO MAIN.PRG 

OPEN DATABASE PTFM 

PUBLIC frmMenu, gcLoginID, gcFullName, gcLocation, gcProgName 

USE Setup 

SET ORDER TO- It em 

IF SEEK ( " PROGNAME " ) 

gcProgName = TRIM (Setup. SU_Dat a) 

_SCREEN. Caption = gcProgName 

ELSE 

gcProgName = "Patent & Trademark Fee Management" 

ENDIF 

IF SEEK ( " LOGINID" ) 

gcLoginID « TRIM (Setup . SU_Data) 

ELSE 

gcLoginID = "Unknown" 
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END IF 

IF SEEK ( " FULLNAME " ) 

gcFullName » TRIM (Setup. SU__Dat a) 

ELSE 

gcFullName = "Unknown" 

END IF 

IF SEEK ("LOCATION") 

gcLocation = TRIM (Setup. SU_Data) 

ELSE 

gcLocation » "Unknown" 

ENDIF 

CLOSE TABLES ALL 

DO FORM Menu NAME frmMenu 

READ EVENTS 

A************************************ 

FUNCTION GetDueDate 

* Finds the Monday which is the specified number of weeks after 

* the date the request was made. If the request was made on a 

* Monday, do not count that Monday. 
L PARAMETERS ldDate, InNumMondays 

Local InMondayCnt 

InMondayCnt = 0 

DO WHILE InMondayCnt < InNumMondays 
ldDate = ldDate +1 
IF DOW (ldDate, 2) * 1 

InMondayCnt = InMondayCnt + 1 

ENDIF 

END DO 

RETURN ldDate 

************************************* 
FUNCTION TextDollar 

PARAMETERS nNumber 

LOCAL InDollars, InCents 

InDollars = INT (nNumber) 

InCents = (nNumber - InDollars) * 100 



FIG. 24G 



RETURN TextNumeric (InDo liars )+ "AND "+STR (InCents , 2 ) +"/100 
DOLLARS" 

************************************* 

FUNCTION TextNumeric 

PARAMETERS nNumber 

LOCAL lcString, InWorkNumber 

InWorkNumber = nNumber 
lcString = 

IF InWorkNumber >= 1000000 

lcString = TextNumeric (InWorkNumber/ 100 0000) + "Million " 

InWorkNumber = InWorkNumber - 
(INTdnWorkNumber/1000000) *1000000) 
ENDIF 

IF InWorkNumber >= 1000 

lcString = lcString + TextNumeric (InWorkNumber/ 1000) + 
"Thousand " 

InWorkNumber = InWorkNumber - (INT (InWorkNumber/ 1000) *1000) 

ENDIF 
DO CASE 

CASE InWorkNumber >= 900 

lcString = lcString + "Nine Hundred " 

InWorkNumber = InWorkNumber - 900 
CASE InWorkNumber >= 800 

lcString = lcString + "Eight Hundred " 

InWorkNumber = InWorkNumber - 800 
CASE InWorkNumber >= 7 00 

lcString = lcString + "Seven Hundred " 

InWorkNumber = InWorkNumber - 700 
CASE InWorkNumber >= 600 

lcString = lcString + "Six Hundred « 

InWorkNumber = InWorkNumber - 600 
CASE InWorkNumber >= 500 

lcString = lcString + "Five Hundred " 

InWorkNumber = InWorkNumber - 500 
CASE InWorkNumber >= 4 00 

lcString = lcString + "Four Hundred " 

InWorkNumber = InWorkNumber - 400 
CASE InWorkNumber >= 300 

lcString = lcString + "Three Hundred " 

InWorkNumber = InWorkNumber - 300 
CASE InWorkNumber >= 200 
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lcString =» lcString + "Two Hundred 
InWorkNumber = InWorkNumber - 200 

CASE InWorkNumber >= 100 

lcString = lcString + "One Hundred 
InWorkNumber = InWorkNumber - 100 

ENDCASE 

DO CASE 

CASE InWorkNumber >= 90 

lcString = lcString + "Ninety " 
InWorkNumber = InWorkNumber - 90 

CASE InWorkNumber >= 80 

lcString = lcString + "Eighty n 
InWorkNumber = InWorkNumber - 80 * 

CASE InWorkNumber >= 70 

lcString = lcString + "Seventy " 
InWorkNumber = InWorkNumber - 70 

CASE InWorkNumber >= 60 

lcString = lcString + "Sixty " 
InWorkNumber = InWorkNumber - 60 

CASE InWorkNumber >= 50 

lcString = lcString + "Fifty " 
InWorkNumber = InWorkNumber - 50 

CASE InWorkNumber >= 40 

lcString = lcString + "Forty " 
InWorkNumber = InWorkNumber - 40 

CASE InWorkNumber >= 30 

lcString = lcString + "Thirty " 
InWorkNumber = InWorkNumber - 30 

CASE InWorkNumber >= 20 

lcString = lcString + "Twenty " 
InWorkNumber = InWorkNumber - 20 

CASE InWorkNumber >= 19 

lcString = lcString + "Nineteen " 
InWorkNumber « InWorkNumber - 19 

CASE InWorkNumber >= 18 

lcString = lcString + "Eighteen " 
InWorkNumber = InWorkNumber - 18 

CASE InWorkNumber >= 17 

lcString = lcString + "Seventeen ■ 
InWorkNumber = InWorkNumber - 17 

CASE InWorkNumber >= 16 

lcString = lcString + "Sixteen " 
InWorkNumber = InWorkNumber - 16 

CASE InWorkNumber >= 15 

lcString = lcString + "Fifteen " 
InWorkNumber =» InWorkNumber - 15 



FIG. 241 



CASE InWorkNumber >= 14 

IcString = lcString + "Fourteen " 
InWorkNumber = InWorkNumber - 14 

CASE InWorkNumber >= 13 

lcString =» IcString + "Thirteen " 
InWorkNumber = InWorkNumber - 13 

CASE InWorkNumber >= 12 

lcString m lcString + "Twelve 11 
InWorkNumber = InWorkNumber - 12 

CASE InWorkNumber >= 11 

lcString = lcString + "Eleven " 
InWorkNumber = InWorkNumber - 11 

CASE InWorkNumber >= 10 

lcString = lcString + "Ten " 
InWorkNumber = InWorkNumber - 10 

END CASE 

DO CASE 

CASE InWorkNumber >= 9 

lcString = lcString + "Nine ■ 
InWorkNumber » InWorkNumber - 9 

CASE InWorkNumber >= 8 

lcString = lcString + "Eight " 
InWorkNumber = InWorkNumber - 8 

CASE InWorkNumber >= 7 

lcString = IcString + "Seven " 
InWorkNumber = InWorkNumber - 7 

CASE InWorkNumber >« 6 

lcString = lcString + "Six " 
InWorkNumber = InWorkNumber - 6 

CASE InWorkNumber >= 5 

lcString = lcString + "Five ■ 
InWorkNumber = InWorkNumber - 5 

CASE InWorkNumber >= 4 

lcString = lcString + "Four " 
InWorkNumber - InWorkNumber - 4 

CASE InWorkNumber >= 3 

lcString = lcString + "Three " 
InWorkNumber = InWorkNumber - 3 

CASE InWorkNumber >= 2 

IcString « lcString + "Two " 
InWorkNumber = InWorkNumber - 2 

CASE InWorkNumber >= 1 

lcString = lcString + "One " 
InWorkNumber = InWorkNumber - 1 

END CASE 
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IF EMPTY (IcSt ring) 
IcString = "No 

END IF 

RETURN IcString 



FIG. 24K 



